(vc-hg-dir-state): Pass the dir argument to

vc-hg-command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a67b82e6cd7e31e27253c7845be24c785e33518e..f98b68709fad9f3f6e7892b3ddcd000c5c1ce0e9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-07  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * vc-hg.el (vc-hg-dir-state): Pass the dir argument to
+       vc-hg-command.
+
 2008-01-07  Glenn Morris  <rgm@gnu.org>
 
        * calc/calc-help.el (calc-full-help): Use emacs-copyright.

diff --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index c97a07220be81da34ec8103f4b8cc8e5b4cb4dcd..ac4f333f74977d9015d9cf89a0bea97fd936e3fb 100644 (file)
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -170,7 +170,7 @@
 
 (defun vc-hg-dir-state (dir)
   (with-temp-buffer
-    (vc-hg-command (current-buffer) nil nil "status")
+    (vc-hg-command (current-buffer) nil dir "status")
     (goto-char (point-min))
     (let ((status-char nil)
          (file nil))